home *** CD-ROM | disk | FTP | other *** search
/ Aminet 23 / Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso / Aminet / demo / aga / IsoHD.lha / isohd-install / Install-Iso < prev    next >
Text File  |  1997-12-19  |  2KB  |  87 lines
  1.  
  2. ;----------------------------
  3.  
  4. ;try to figure out a place where the user usually installs his games
  5. (if (exists "Demos:" (noreq) )
  6.     (set @default-dest "Demos:")
  7.     (if (exists "SYS:Demos" (noreq) )
  8.         (set @default-dest "SYS:Demos")
  9.         (if (exists "Work:Demos" (noreq) )
  10.             (set @default-dest "Work:Demos")
  11.             (set @default-dest "RAM:")
  12.         )
  13.     )
  14. )
  15.  
  16. (set @default-dest
  17. (askdir
  18.     (prompt ("Where should %s installed ?\nA drawer \"%s\" will automatically created." @app-name @app-name))
  19.     (help @askdir-help)
  20.     (default @default-dest)
  21.     (disk)
  22. )
  23. )
  24.  
  25. (set #dest (tackon @default-dest @app-name))
  26.  
  27. (copyfiles
  28.     (help @copyfiles-help)
  29.     (source "CTRL")
  30.     (dest #dest)
  31.     (infos)
  32. )
  33.  
  34. (copyfiles
  35.     (help @copyfiles-help)
  36.     (source "IsoHD")
  37.     (dest #dest)
  38.     (infos)
  39. )
  40.  
  41. (copyfiles
  42.     (help @copyfiles-help)
  43.     (source "IsoHD_2MB")
  44.     (dest #dest)
  45.     (infos)
  46. )
  47.  
  48. (copyfiles
  49.     (help @copyfiles-help)
  50.     (source "IsoHD.exe")
  51.     (dest #dest)
  52.     (infos)
  53. )
  54.  
  55. (copyfiles
  56.     (help @copyfiles-help)
  57.     (source "IsoHD.readme")
  58.     (dest #dest)
  59.     (infos)
  60. )
  61.  
  62. (set #CI_drive "DF0:")
  63.  
  64. (makedir #dest
  65.     (help @makedir-help)
  66.     (infos)
  67. )
  68.  
  69. ;----------------------------
  70.  
  71. (message ("\nInsert Iso disk 1 into drive %s " #CI_drive))
  72.  
  73.     (if
  74.         (= 0 (run ("disk2file %ld \"%s/Iso.Disk1\"" #CI_unit #dest )))
  75.         ("")
  76.         (abort "\"disk2file\" must be in your PATH !")
  77.     )
  78.  
  79. (message ("\nInsert Iso disk 2 into drive %s " #CI_drive))
  80.  
  81.     (if
  82.         (= 0 (run ("disk2file %ld \"%s/Iso.Disk2\"" #CI_unit #dest )))
  83.         ("")
  84.         (abort "\"disk2file\" must be in your PATH !")
  85.     )
  86.  
  87.